home *** CD-ROM | disk | FTP | other *** search
/ Time Warp / Time Warp.iso / pc / timewarp / lab.dxr / 00123.ls < prev    next >
Encoding:
Text File  |  1997-06-09  |  770 b   |  35 lines
  1. on checkDisc
  2.   global discsLoaded, IconCount
  3.   set i to the clickOn
  4.   if the castNum of sprite i = 511 then
  5.     if sprite i intersects 22 then
  6.       set the castNum of sprite i to 600
  7.       set IconCount to IconCount - 1
  8.       updateSpritelist()
  9.       set discsLoaded to discsLoaded + 1
  10.       go("DISC IN")
  11.       exit
  12.     end if
  13.   end if
  14. end
  15.  
  16. on checkDiscIcon
  17.   global IconCount, discs, discsLoaded
  18.   repeat with i = 48 down to 33
  19.     if the castNum of sprite i = 511 then
  20.       set the castNum of sprite i to 600
  21.       set IconCount to IconCount - 1
  22.       updateSpritelist()
  23.       set discsLoaded to discsLoaded + 1
  24.       set Found to 1
  25.       go("DISC IN")
  26.       exit repeat
  27.     end if
  28.   end repeat
  29.   if Found = 1 then
  30.     exit
  31.   else
  32.     go("START HELP")
  33.   end if
  34. end
  35.